include(/mnt/Datos/Facultad/Latex/circuit_macros/pgf.m4)
include(/mnt/Datos/Facultad/Latex/circuit_macros/libcct.m4)
   
.PS 
cct_init
  
elen = 0.75
Origin: Here
	source(up_ 1,U); llabel(,v_g,)
	resistor(right_ elen); rlabel(,50~\Omega,)
	{
		line down_ 0.2
		diode(right_ elen); rlabel(,1N4007,)
		line up_ 0.2
	}
	line up_ 0.2
	resistor(right_ elen); rlabel(,4.7~\text{k}\Omega,)
	line down_ 0.2
	line right_ 0.35
	{
		dot
		resistor(down_ to (Here,Origin)); variable()
		llabel(,R_v,)
	}
	line right_ elen*2/3
	{ 
		resistor(down_ to (Here, Origin)); llabel(,R_p,); ground
	}
	line right_ elen*2/3
	capacitor(down_ Here.y-Origin.y); llabel(,C_p,);
	line to Origin

.PE

